home *** CD-ROM | disk | FTP | other *** search
- OPT NOEXE,PPC
-
- MODULE 'exec/memory'
-
- OBJECT chunky32
- wi/he:L,
- pixel:PTR TO L,
- zbuff:PTR TO F
-
- PROC CreateChunky32Z(wi,he)(PTR TO chunky32)
- DEF ch:PTR TO chunky32
- IFN ch:=AllocVecPPC(SIZEOF_chunky32+wi*he*SIZEOF_LONG,MEMF_PUBLIC|MEMF_CLEAR) THEN RETURN NIL
- ch.wi:=wi
- ch.he:=he
- ch.pixel:=ch+SIZEOF_chunky32
- ENDPROC ch
-